home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / net / cnetjam10.lha / cnet / pfiles / fido / Call_Jam < prev    next >
Text File  |  1994-07-01  |  677b  |  26 lines
  1. /* Call_Jam, v1.0 by Dotoran */
  2. options results ; tr=transmit ; se=sendstring ; gu=getuser
  3.  
  4. tr 'n1Jam-Mail Callern1' ; a=1302246
  5.  
  6. do i=1 to 3 ; gu a+61*i ; arg.i=result ; end i
  7.  
  8. if arg.1='' then do
  9.     se 'Call Who? [Abort]:i128 20}' ; gu 70
  10.         node=result ; if node='' then exit
  11.  
  12.     se ' Retries?    [99]:i128 3}' ; gu 70
  13.         rings=result ; if rings='' then rings=99
  14.  
  15.     se '   Pause?    [50]:i128 3}' ; gu 70
  16.         hold=result ; if hold='' then hold=50
  17. end
  18.  
  19. else do
  20.     node=arg.1  ; if node=''  then exit
  21.     rings=arg.2 ; if rings='' then rings=99
  22.     hold=arg.3  ; if hold=''  then hold=50
  23. end
  24.  
  25. address command 'rx mail:JamCall.rexx 'node' 'rings' 'hold
  26.